home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / s / sequencer-32pro1.dms / sequencer-32pro1.adf / Install-Sequencer < prev    next >
Text File  |  1994-11-02  |  5KB  |  190 lines
  1. ; 32-BIT SEQUENCE PROCESSOR INSTALL-SCRIPT
  2.  
  3. (set d1 "h:s/disk1")
  4. (set d2 "h:s/disk2")
  5. (set d3 "h:s/disk3")
  6. (set d4 "h:s/disk4")
  7. (set d5 "h:s/disk5")
  8.  
  9. (set d1 "SEQ_DISK_1:")
  10. (set d2 "SEQ_DISK_2:")
  11. (set d3 "SEQ_DISK_3:")
  12. (set d4 "SEQ_DISK_4:")
  13. (set d5 "SEQ_DISK_5:")
  14.  
  15. (set seqdir
  16.     (askdir
  17.         (prompt "Sequencer dir")
  18.         (help @askdir-help)
  19.         (default @default-dest)
  20.     )
  21. )
  22. (set seqdir1 (tackon seqdir "Sequencer/"))
  23. (set seqdir (tackon seqdir "Sequencer"))
  24.  
  25. (set @default-dest seqdir)
  26.  
  27. (if (not (exists seqdir))
  28.     ( ; then...
  29.         (makedir seqdir (infos))
  30.     ) )
  31.  
  32. (set scriptsdir (tackon seqdir "Scripts"))
  33. (set picsdir    (tackon seqdir "Pics"))
  34. (set feuerdir   (tackon seqdir "Feuer"))
  35. (set kopfdir    (tackon seqdir "Kopf"))
  36. (set fadedir    (tackon seqdir "Fade"))
  37. (set stardir    (tackon seqdir "Star"))
  38. (set testdir    (tackon seqdir "Test"))
  39. (set animdir    (tackon seqdir "Anim"))
  40.  
  41. (if (not (exists scriptsdir))
  42.     ( ; Then...
  43.         (makedir scriptsdir (infos))
  44.     ) )
  45. (if (not (exists picsdir))
  46.     ( ; Then...
  47.         (makedir picsdir (infos))
  48.     ) )
  49. (if (not (exists feuerdir))
  50.     ( ; Then...
  51.         (makedir feuerdir (infos))
  52.     ) )
  53. (if (not (exists kopfdir))
  54.     ( ; Then...
  55.         (makedir kopfdir (infos))
  56.     ) )
  57. (if (not (exists testdir))
  58.     ( ; Then...
  59.         (makedir testdir (infos))
  60.     ) )
  61. (if (not (exists fadedir))
  62.     ( ; Then...
  63.         (makedir fadedir (infos))
  64.     ) )
  65. (if (not (exists stardir))
  66.     ( ; Then...
  67.         (makedir stardir (infos))
  68.     ) )
  69. (if (not (exists animdir))
  70.     ( ; Then...
  71.         (makedir animdir (infos))
  72.     ) )
  73.  
  74. (set scriptsdir1 (tackon seqdir "Scripts/"))
  75. (set picsdir1    (tackon seqdir "Pics/"))
  76. (set feuerdir1   (tackon seqdir "Feuer/"))
  77. (set kopfdir1    (tackon seqdir "Kopf/"))
  78. (set fadedir1    (tackon seqdir "Fade/"))
  79. (set stardir1    (tackon seqdir "Star/"))
  80. (set testdir1    (tackon seqdir "Test/"))
  81.  
  82. ;(makeassign "Sequencer:" seqdir)
  83.  
  84. ; **************** DISK 1 **********************
  85. (copyfiles (source d1) (dest "RAM:") (pattern "lharc") (files))
  86.  
  87. (copyfiles (source d1) (dest "RAM:") (pattern "pics.lha") (files))
  88. (run "ram:lharc e RAM:pics.lha" picsdir1 
  89.   (prompt "Extracting...") (help "NO HELP")
  90. )
  91. (delete "ram:pics.lha")
  92.  
  93. (copyfiles (source d1) (dest "RAM:") (pattern "prog.lha") (files))
  94. (run "ram:lharc e RAM:prog.lha" seqdir1
  95.   (prompt "Extracting...") (help "NO HELP")
  96. )
  97. (delete "ram:prog.lha")
  98.  
  99. (copyfiles (source d1) (dest "RAM:") (pattern "scripts.lha") (files))
  100. (run "ram:lharc e RAM:scripts.lha" scriptsdir1 
  101.   (prompt "Extracting...") (help "NO HELP")
  102. )
  103. (delete "ram:scripts.lha")
  104.  
  105.  
  106.  
  107. ; **************** DISK 2 **********************
  108.  
  109. (Message "Please insert '" d2 "' in any drive.")
  110.  
  111. (copyfiles (source d2) (dest "RAM:") (pattern "fade.lha") (files))
  112. (run "ram:lharc e RAM:fade.lha" fadedir1 
  113.   (prompt "Extracting...") (help "NO HELP")
  114. )
  115. (delete "ram:fade.lha")
  116.  
  117. (copyfiles (source d2) (dest "RAM:") (pattern "feuer.lha") (files))
  118. (run "ram:lharc e RAM:feuer.lha" feuerdir1 
  119.   (prompt "Extracting...") (help "NO HELP")
  120. )
  121. (delete "ram:feuer.lha")
  122.  
  123. (copyfiles (source d2) (dest "RAM:") (pattern "kopf-50.lha") (files))
  124. (run "ram:lharc e RAM:kopf-50.lha" kopfdir1 
  125.   (prompt "Extracting...") (help "NO HELP")
  126. )
  127. (delete "ram:kopf-50.lha")
  128.  
  129. (copyfiles (source d2) (dest "RAM:") (pattern "star.lha") (files))
  130. (run "ram:lharc e RAM:star.lha" stardir1 
  131.   (prompt "Extracting...") (help "NO HELP")
  132. )
  133. (delete "ram:star.lha")
  134.  
  135.  
  136. ; **************** DISK 3 **********************
  137.  
  138. (Message "Please insert '" d3 "' in any drive.")
  139.  
  140. (copyfiles (source d3) (dest "RAM:") (pattern "kopf-1-16.lha") (files))
  141. (run "ram:lharc e RAM:kopf-1-16.lha" kopfdir1 
  142.   (prompt "Extracting...") (help "NO HELP")
  143. )
  144. (delete "ram:kopf-1-16.lha")
  145.  
  146.  
  147. ; **************** DISK 4 **********************
  148.  
  149. (Message "Please insert '" d4 "' in any drive.")
  150.  
  151. (copyfiles (source d4) (dest "RAM:") (pattern "kopf-17-34.lha") (files))
  152. (run "ram:lharc e RAM:kopf-17-34.lha" kopfdir1 
  153.   (prompt "Extracting...") (help "NO HELP")
  154. )
  155. (delete "ram:kopf-17-34.lha")
  156.  
  157.  
  158. ; **************** DISK 5 **********************
  159.  
  160. (Message "Please insert '" d5 "' in any drive.")
  161.  
  162. (copyfiles (source d5) (dest "RAM:") (pattern "kopf-35-49.lha") (files))
  163. (run "ram:lharc e RAM:kopf-35-49.lha" kopfdir1 
  164.   (prompt "Extracting...") (help "NO HELP")
  165. )
  166. (delete "ram:kopf-35-49.lha")
  167.  
  168. ; **************** DISK 1 **********************
  169.  
  170. (Message "Please insert '" d1 "' in any drive.")
  171.  
  172. (copyfiles (source d1) (dest "RAM:") (pattern "libs.lha") (files))
  173. (run "ram:lharc e RAM:libs.lha libs:" ;********************************** 
  174.   (prompt "Extracting...") (help "NO HELP")
  175. )
  176. (delete "ram:libs.lha")
  177.  
  178.  
  179. (startup "SEQUENCER PROFESSIONAL"
  180.     (prompt "Add asigns to the 'S:user-startup'")
  181.     (help "No help for this function")
  182.     (command "assign Sequencer: " seqdir)
  183. )
  184. (makeassign "Sequencer" seqdir)
  185.  
  186. (delete "ram:lharc")
  187.  
  188. (message "Sequencer installed successfuly")
  189.  
  190.